home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 75
/
64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64
/
superfrac 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
78 lines
1000 rem ****************
1010 rem * superfrac 64 *
1020 rem * version 4.57 *
1030 rem * vom 02.07.87 *
1040 rem * programming: *
1050 rem * i.camphausen *
1060 rem ****************
1070 :
1080 if a=0 then print"[147]";tab(13);"moment bitte!"
1090 if a=0 then poke 55,0:poke 56,142:clr:a=1:load"mc.sf 64",8,1
1100 if a=1 then a=2:load"dat.sf 64",8,1
1110 :
1120 rem
1130 rem **************************
1140 rem variable/wichtige adressen
1150 rem **************************
1160 rem
1170 ru=36396:di=36413:be=38985:gi=36607:ta=39494:dr=39510
1180 nl=39780:dl=39781:ds=39794:gl=39817:gs=39833:dg=36433
1190 a1(1)=dl:a1(2)=ds:a1(3)=gl:a1(4)=gs
1200 a2(1)=di:a2(2)=dg:a2(3)=gin:a2(4)=dg
1210 for i=1 to 6:read ad(i):next i
1220 data 24576,24608,24640,26656,26688,28736
1230 for i=1 to 4:read ue$(i):next i
1240 data " dload "," dsave "," gload "," gsave "
1250 :
1260 rem
1270 rem *************
1280 rem hauptprogramm
1290 rem *************
1300 rem
1310 sys 36352
1320 nr=peek(be)-1:if nr>0 then gosub 1510:goto 1320
1330 gosub 1350:goto 1320
1340 :
1350 rem
1360 rem ***************************
1370 rem up eingabe der stuetzpunkte
1380 rem ***************************
1390 rem
1400 print:print
1410 for i=1 to 6
1420 : h=0
1430 : print"hoehe"i"[157]. stuetzpunkt ";:input h
1440 : if abs(h)>30 then print"bitte beachten: -30 <= hoehe <= +30![146]":goto1420
1450 : if h<0 then h=256+h
1460 : poke ad(i),h
1470 next i
1480 sys ru
1490 return
1500 :
1510 rem
1520 rem *******************
1530 rem up diskettenzugriff
1540 rem *******************
1550 rem
1560 print "[147][144]****************************************"
1570 print "";tab((40-len(ue$(nr)))/2);ue$(nr)
1580 n$="":input"filename ";n$
1590 if n$="" then sys dg:return
1600 if n$="$"then sys dr:gosub 1690:if fe=0 then sys taste:goto 1560
1610 if nr<3 then n$=chr$(4)+n$
1620 if nr>2 then n$=chr$(7)+n$
1630 poke nl,len(n$)
1640 for i=1 to len(n$):poke 703+i,asc(mid$(n$,i,1)):next i
1650 sys a1(nr):gosub 1690:if fe<>0 then 1560
1660 sys a2(nr)
1670 return
1680 :
1690 rem
1700 rem **************
1710 rem up fehlerkanal
1720 rem **************
1730 rem
1740 open 1,8,15:input#1,fe,fe$,a,b:close 1
1750 print:print fe,fe$:if fe<>0 then sys ta
1760 return